This sample code shows the use of the NextMagnification Method (View Object). Modify the following sample code to fit your needs.
Dim test As Index
Dim crwApplication As CRPEAuto.Application
Dim crystalreport As CRPEAuto.Report
Dim repViewObj As CRPEAuto.View
Private Sub Command1_Click()
'shows report at next magnification zoom level
Set crwApplication = CreateObject("Crystal.CRPE.Application")
Set crystalreport = crwApplication.OpenReport _
("c:\crw\reports\xtreme\wwsales.rpt")
repVar = "SimpleReport"
Set repViewObj = crystalreport.Preview
MsgBox "Use NextMagnification to zoom preview of report"
End Sub
Seagate Software IMG Holdings, Inc. http://www.seagatesoftware.com Support services: http://support.seagatesoftware.com |